unit segSeguranca;

interface

uses segUsuario;

type
  TSistemas = array of integer;
  TModulos = array of integer;
  TPerfis = array of integer;

  TSeguranca = class
  private
    FSistemas: TSistemas;
    FModulos: TModulos;
    FUsuarioLogado: TUsuario;
    procedure SetSistemas(const Value: TSistemas);
    procedure SetModulos(const Value: TModulos);
    procedure SetUsuarioLogado(const Value: TUsuario);

  public

    constructor Create;
    function Logar(const Value: TUsuario): Boolean;

    property Sistemas: TSistemas read FSistemas write SetSistemas;
    property Modulos: TModulos read FModulos write SetModulos;
    property UsuarioLogado: TUsuario read FUsuarioLogado write SetUsuarioLogado;
  end;

implementation

{ Seguranca }

uses prsSeguranca;

constructor TSeguranca.Create;
begin
  SetLength(FSistemas, 20);
  SetLength(FModulos, 20);
end;

function TSeguranca.Logar(const Value: TUsuario): Boolean;
begin
  Result := prsSeguranca.logar(Value);
end;

procedure TSeguranca.SetModulos(const Value: TModulos);
begin
  FModulos := Value;
end;

procedure TSeguranca.SetSistemas(const Value: TSistemas);
begin
  FSistemas := Value;
end;

procedure TSeguranca.SetUsuarioLogado(const Value: TUsuario);
begin
  FUsuarioLogado := Value;
end;

end.
